(smtpmail-read-response): Goto smtpmail-read-point

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 00e07e9c0597401f121f622c6beff81ce4754597..801cac7fcb5c41c89daa9dfc4095f06c104f8f06 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -345,8 +345,8 @@ don't define this value.")
 ;    (setq response-continue t)
 ;    (setq return-value '(nil ""))
 
-    (goto-char smtpmail-read-point)
     (while response-continue
+      (goto-char smtpmail-read-point)
       (while (not (search-forward "\r\n" nil t))
        (accept-process-output process)
        (goto-char smtpmail-read-point))